RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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MODULE PAGMRG (IDENT =_'y04-000' 
FOL ISSSel, sADDRESSING_MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) J 


BEGIN 


RESPEC CL SLES EESTI ST TTT TT TTT TTT cece cece ccc ccc cece cece iris titi ric i titties) 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is oa OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og ha 
N em NCE WITH THE ont OF SUCH LICENSE AND WITH THE 
USI F TWARE Y OTHER 
Pp 


fo feololeloejelelolo) 
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* 
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® 

0 a 

NEREOF MAY NOT BE PROV VIDED OO OTHERWISE MADE AVAILABLE TO ANY * 

! fe 

Hl TRANSFERRED. * 

& 

!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

* 

x 

t 

& 

* 

4 

* 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
Hl CORPORATION. 


iw DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
!® SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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i FACILITY: | 
DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 
ABSTRACT: Compares page numbers to see if they can be merged. 
ENVIRONMENT: Transportable 
! AUTHOR: R. W. Friday 
CREATION DATE: May, 1979 
i MODIFIED BY: 
0 ‘ 002 JPK00024 23-May-1983 
0 : vp be Loverces ing algorithm in PERMUTE. Now lowercase gnly 
04 ! if word contains only 1 letter or if second letter in wor 
04 ’ lowercase. Picked up modules PAGMRG and POOL from DSR/DSRPLUS 
3 since they are no longer used by DSR/DSRPLUS. 
04 —_ 
05 
05 : 
05 ! TABLE OF CONTENTS 
osc 1 | 
$8 FORWARD ROUTINE 
be PAGMRG; 
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SRC JPAGMRG.BLI; 
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16-Sep-1984 04:36:0) AX-11 Bliss-32 ye ores Page ;| 


04-000 PAGMRG == Compare two page entries to see if th 14-Sep-19 RUNOFF .SRCJPAGMRG.BLI (2) | 
§ 165 XSBTTL ‘PAGMRG == Compare two page entries to see if they can be merged' | : 
8 1° GLOBAL ROUTINE PAGMRG (ENTRY1, ENTRY2) = : 
89 '++ : 
3 ' FUNCTIONAL DESCRIPTION: : 
: Compare two page numbers to see if they are adjacent pages. : 
34 FORMAL PARAMETERS: : 


ENTRY1 and ENTRY2 are the page numbers to be compared. 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


TRUE - Specified page numbers are adjacent 
FALSE = Specified page numbers are not adjacent 


SIDE EFFECTS: 


DO0000000 00000 00090000009 000 INI NI NIN NINN NNO OO 


—OODWNOAWUN EWN 0 OONAUE WN 0 ODNO UE WN 0 DOONAN EW SO OOVNOUS WI OO0W 


NONE 
BEGIN | 
MAP | 
ENTRY] : REF PAGE_DEFINITION, | 
ENTRY2 : REF PAGE-DEFINITION: 


! 
Both entries must exist 


iF (.ENTRY1 EQL 0) OR (.ENTRY2 EQL 0) THEN RETURN FALSE; 


By definition, oo can't merge page numbers if : 
: their display characteristics are different. Test for this. 


iF NOT DSPEQL (.ENTRY1, .ENTRY2) THEN RETURN FALSE; 


SS SVS er OOOO NOUNFIUUO Sm oh arom 


! 4 
Section type must match 


iF .ENTRY1 CSCT_TYP] NEQ .ENTRY2 CSCT_TYP] THEN RETURN FALSE; 


Ce ee eee eee wee wlolelwfolelolelelelelelelolelelelelolelelolololelelelololalolelol ol ales) 
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' 
: Section number must always match 


| 

| 

é PAGMRG 
IDENT \V04=000\ 
-EXTRN DSPEQL | 
| 

| 

| 


1% p 1984 26:0 AX-11 Bliss-32 V4.0-742 P & 3 
v04-000 PAGMRG == Compare two page entries to see if th 12286871 382 93:69:23 RUNOFF .SRCJPAGMRG.BLI;1 a (2) ve 
: re 0 g IF .ENTRY1 CSCT_NUMBER) NEQ .ENTRY2 CSCT_NUMBER] THEN RETURN FALSE; : 
: 145 4 ; 
> 146 0225 ! If sub-page exists, the page number must match and the sub-pages ; 
; i 8 § must ditter only by 1 mister . se Sicrs : 
: 149 0208 if .ENTRY1 CSCT_SUB_PAGE] NEQ 0 ; 
; 150 0229 THE : 
i 19] 0230 BEGIN | 3 
; 138 9 é IF .ENTRY1 CSCT_PAGE] NEQ .ENTRY2 CSCT_PAGE] THEN RETURN FALSE; | : 
; 188 0234 4 IF (.ENTRY1 SCT_SUB_PAGE] NEQ -ENTRYZ SCT_SuB_PAGE] - 1) ; 
; 128 tH u ao (.ENTRY1 CSCT_SUB_PAGE] NEQ .ENTRY2 CSCT_SUB_PAGEJ) : 
: 158 0537 i RETURN FALSE; | : 
: 159 0238 3 | ; 
> 160 oSz8 RETURN TRUE : 
3; 10) 0240 2 END; : 
: 162 0241 2 : 
: 163 Oete 2 ! : 
3 + OSez 2 If all else is OK, page numbers can differ only by 0 or 1 : 
: 166 O5e8 5 iF .ENTRY1 CSCT_PAGE] NEQ .ENTRY2 CSCT_PAGE] - 1 | : 
3. ier 0246 § : 
: 168 0247 BEGIN | : 
3; «6169 0248 3 3 
: 170 0249 3 IF .ENTRY1 CSCT_PAGE] NEQ .ENTRY2 CSCT_PAGE] THEN RETURN FALSE; | ; 
; 37 0250 2 END; : 
; \v¢ 0251 2 : 
: 7 O636 2 RETURN TRUE; 3 
3: «174 0253 1 END; 'End of PAGMRG : 


~PSECT S$CODE$,NOWRT,2 


000¢ 00000 -ENTRY PAGMRG, Save R2,R3 : 0166 
52 04 ac 00 00002 MOVL ENTRY. R2 : 0206 
-—_ i BEQL 4$ : 
08 AC D 000 TSTL ENTRY2 3 
57 1 90008 BEQL 86 &$ ; 
53 08 Ac 00 0000D ENTRY2, R3 > 0212 
C BB 00011 PUSHR #*M<R2,R3> 3 
000000006 EF ; FB 00013 CALLS #2, DSPEQL ; 
47 E9 OO1A BLBC. —_ «RO. & : 
50 63 : 0010 XORB3 (RO), (R3), RO : 0217 
OF 93 00021 BITB RO, #15 ; 
1 0024 BNEQ : 
04 A3 04 A D 8 6 CMPL 4(R2), 4(R3) 5 0222 
37 12 00028 BNEQ ; | 
02 A2 B5 00020 TSTW ©. 2(R2) : 0228. 
1¢ 13 00030 BEQL =ssés«s1S$ ; 


3 
16-Sep-1984 01:26:0 AX-11 Bliss-32 V4.0-742 P 

v04-000 PAGMRG == Compare two page entries to see if th 1 Saat 93 85; 3 RUNOFF ..SRCJPAGMRG.BLI;1 ae (23 
08 A3 08 A2 01 000 CMPL 8(R2), 8(R3) ; 0232) ; 
2B i2 38 $ BNEQ 4$ : | : 
50 02 § 36 38 ; pov ZL g(R3), RO 3 0234, : 
50 02 A2 10 09 ED 0003 CHPiV #0, #16, 2¢R2), RO : 3 
19 one3 BEQL $ : $ 
02 A3 02 Ag 2 Bpee ay {R2). 2(R3) + 0235) ; 
50 08 A3 01 C3 OO04E 1$: SUBL3 #1, 8(R3), RO > 0245 | ; 
50 08 Ag D1 0005 CMPL g<R2), RO’ : ; 
07 13 0005 BEQL $ : ; 
08 A3 08 A2 O01 Bodee CMPL 8(R2), 8(R3) 3: 0249. 3 
04 is 00 $3: BNEQ 4$ : 3 
50 01 00 00060 3$: MOVL #1, RO F 0252 | ; 
04 0006 RET : $ 
50 04 00064 4$: CLRL RO 3; 0253 : 
04 00066 ET 
; Routine Size: 103 bytes, Routine Base: SCODES + 0000 | 3 
; 
; 0254 1 $ 
: «4176 0255 1 END ‘End of module : 
3 WT 0256 0 ELUDOM | : 
| ° 
; PSECT SUMMARY | : 
; Name Bytes Attributes ; 
Ps j o 
; SCODES 103 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
; 
: Library Statistics : 
Bee re ee hoa ee Symbols -------- Pages Processing ; 
: File Total Loaded Percent Mapped Time 
;  _$255$DUA28:CSYSLIBIXPORT.L32;1 590 0 0 252 00:00.1 3 
: COMMAND QUALIFIERS ; 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:PAGMRG/OBJ=OBJ$:PAGMRG MSRC$:PAGMRG/UPDATE=(ENHS$: PAGMRG) : 


3 Size: 103 code + 0 data bytes 


Rm. 
PAGMRG 16-Sep-1984 01:26:01 VAX-11 Bliss-32 V4.0-742 Page 6 
v04-000 PAGMRG == Compare two page entries to see if th 


3 nes/CPU Min: 

; Lexemes/CPU-Min: 1714 
3 panety Used: 50 pages 
; Compilatio 


; Sinoaed Tass ae 
s it 429 


mn Complete 


ENT CORPORATION 
ND PROPRIETARY 
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